Option Explicit
Sub Q_Sample037()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh      As Shell32.Shell
    Dim myFldItem As Shell32.FolderItem
    Dim i         As Long
    Set mySh = CreateObject("Shell.Application")
    'wɮ
    Set myFldItem = mySh.NameSpace(ThisWorkbook.Path).ParseName("Q_Test.txt")
    With myFldItem
        For i = 0 To .Verbs.Count
            Debug.Print .Verbs.Item(i).Name
        Next
    End With
    myFldItem.InvokeVerb "CL(&P)"                         'w
    Set myFldItem = Nothing                                 '
    Set mySh = Nothing
End Sub

